Imports System.ComponentModel
Imports System.Web.UI

<ToolboxData("<{0}:FirstSample runat=server></{0}:FirstSample>")> Public Class FirstSample
    Inherits System.Web.UI.WebControls.WebControl
    Protected Overrides Sub CreateChildControls()
        Dim lt As LiteralControl
        Dim txt As System.Web.UI.WebControls.TextBox

        lt = New LiteralControl("<b>Value: ")
        Me.Controls.Add(lt)

        txt = New System.Web.UI.WebControls.TextBox
        txt.Text = "Hello, World"
        txt.ID = "txtInput"
        Me.Controls.Add(txt)

        lt = New LiteralControl("</b>")
        Me.Controls.Add(lt)

    End Sub

End Class
